Group=Color
Name=xA`GCAX
Init=coord=0;\ncx=cy=0;\nvTplane=1;\n?a1,GbWo,0,200,100;\n?a2,ڂx,1,9,7;\na2=10-a2;
Prog=b1x=max(0,x-1);\nb3x=min(xs-1,x+1);\nb1y=max(0,y-1);\nb3y=min(ys-1,y+1);\n\nb5=abs(2*T(x,y)-T(b1x,y)-T(b3x,y));\nb6=abs(2*T(x,y)-T(x,b1y)-T(x,b3y));\n\nif(b5>a1 && b6>a1){\nb4=T(b1x,b1y)+T(x,b1y)+T(b3x,b1y)+T(b1x,y)+a2*T(x,y)+T(b3x,y)+T(b1x,b3y)+T(x,b3y)+T(b3x,b3y);\nT=(b4)/(8+a2);\nif(T(x,y)<20){\nR=G=B=0;\nadd(b1x,b1y,T(b1x,b1y)/255);\nadd(x,b1y,T(x,b1y)/255);\nadd(b3x,b1y,T(b3x,b1y)/255);\nadd(b1x,y,T(b1x,y)/255);\nadd(x,y,T(x,y)/255);\nadd(b3x,y,T(b3x,y)/255);\nadd(b1x,b3y,T(b1x,b3y)/255);\nadd(x,b3y,T(x,b3y)/255);\nadd(b3x,b3y,T(b3x,b3y)/255);\nb4=b4/255;\nR=R/b4;\nG=G/b4;\nB=B/b4;\n}\n}
